home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / trans100.zip / TRANSFER.PPE (.txt) < prev   
PCBoard Programming Language Executable  |  1996-05-18  |  4KB  |  229 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     String   STRING001
  24.     String   STRING002
  25.     String   STRING003
  26.     String   STRING004
  27.     String   STRING005
  28.     String   STRING006
  29.     String   STRING007
  30.     String   STRING008
  31.     String   TSTRING009(200)
  32.     String   STRING010
  33.     String   STRING011
  34.     String   STRING012
  35.     String   STRING013
  36.     String   STRING014
  37.     String   STRING015
  38.     String   STRING016
  39.     String   STRING017
  40.     String   STRING018
  41.     String   STRING019
  42.     String   STRING020
  43.     String   STRING021
  44.     String   STRING022
  45.     String   STRING023
  46.     String   STRING024
  47.     String   STRING025
  48.     String   STRING026
  49.     String   STRING027
  50.     String   STRING028
  51.     String   STRING029
  52.     String   STRING030
  53.     String   STRING031
  54.  
  55. ;------------------------------------------------------------------------------
  56.  
  57.     FOpen 2, PPEPath() + "TRANSFER.CFG", 0, 0
  58.     FGet 2, STRING026
  59.     FGet 2, STRING027
  60.     FGet 2, STRING028
  61.     FGet 2, STRING029
  62.     FGet 2, STRING018
  63.     FGet 2, STRING019
  64.     FGet 2, STRING020
  65.     FGet 2, STRING021
  66.     FGet 2, STRING022
  67.     FGet 2, STRING023
  68.     FGet 2, STRING024
  69.     FGet 2, STRING025
  70.     FGet 2, STRING030
  71.     FGet 2, STRING031
  72.     FClose 2
  73.     STRING001 = STRING019
  74.     STRING002 = STRING020
  75.     STRING003 = STRING021
  76.     STRING004 = STRING022
  77.     STRING005 = STRING023
  78.     STRING006 = STRING024
  79.     STRING007 = STRING025
  80.     INTEGER001 = STRING018
  81.     STRING008 = ReadLine(PCBDat(), 46)
  82.     Log "■ TRANSTAT - UNREGISTERED EVALUATION COPY ■", 0
  83.     Log "■ Call 312-254-3413 for a free registered copy ■", 0
  84.     Newline
  85.     Print "@X0ATRANSTATS v1.00   @X0DCopyright(C)1996 Equinox Software"
  86.     Newline
  87.     Print "@X09───────────────────────────────────────────────────"
  88.     Newline
  89.     Print "@X0FUpdating Last @X0B" + STRING018 + "@X0F File Transfers..."
  90.     FOpen 4, STRING008, 0, 0
  91.     FCreate 2, PPEPath() + PPEName() + ".PCB", 1, 0
  92.     FPutLn 2, "@X7F╔═════════════════════════════════════════════════════════════════════════════@X70╗"
  93.     FPutLn 2, "@X7F║ @XFEUNREGISTERED EVALUATION COPY " + STRING028 + "@POS:54@ Last " + STRING018 + " File Transfers@POS:79@@X70║"
  94.     FPutLn 2, "@X7F║@X70─────────────────────────────────────────────────────────────────────────────@X70║"
  95.     FPutLn 2, "@X07@X7F║" + STRING029 + " Transfer  Username                 Filename      Date        Time   Cps     @X70║"
  96.     FPutLn 2, "@X07@X7F║─────────────────────────────────────────────────────────────────────────────@X70║"
  97.     FSeek 4, -INTEGER001 * 79, 2
  98.     INTEGER002 = 0
  99.     :LABEL001
  100.     If (Ferr(4)) Goto LABEL002
  101.     FGet 4, TSTRING009(INTEGER002)
  102.     If (TSTRING009(INTEGER002) == "") Goto LABEL002
  103.     INTEGER002 = INTEGER002 + 1
  104.     Goto LABEL001
  105.     :LABEL002
  106.     INTEGER003 = INTEGER002
  107.     FClose 4
  108.     For INTEGER004 = INTEGER003 - 1 To INTEGER003 - INTEGER001 Step -1
  109.         TSTRING009(INTEGER004) = Replace(TSTRING009(INTEGER004), ",", ";")
  110.         TSTRING009(INTEGER004) = Replace(TSTRING009(INTEGER004), " ", "+")
  111.         Tokenize TSTRING009(INTEGER004)
  112.         STRING010 = GetToken()
  113.         STRING011 = GetToken()
  114.         STRING011 = Replace(STRING011, "+", " ")
  115.         STRING013 = GetToken()
  116.         STRING014 = GetToken()
  117.         STRING012 = GetToken()
  118.         STRING015 = GetToken()
  119.         STRING017 = GetToken()
  120.         STRING016 = GetToken()
  121.         If (STRING010 == "(U)") STRING010 = STRING001 + STRING001 + "Uploaded "
  122.         If (STRING010 == "(D)") STRING010 = STRING002 + "Download "
  123.         FPutLn 2, "@X7F║ " + STRING010 + " " + STRING003 + Left(Mixed(STRING011), 24) + " " + STRING004 + Left(STRING012, 12) + "  " + STRING005 + STRING013 + "  " + STRING006 + STRING014 + " " + STRING007 + Right(STRING016, 5) + " " + "   @X70║"
  124.     Next
  125.     FPutLn 2, "@X7F║─────────────────────────────────────────────────────────────────────────────@X70║"
  126.     FPutLn 2, "@X7F║ @X71TRANSTATS v1.00                          Copyright (c)1996 Equinox Software @X70║"
  127.     FPutLn 2, "@X7F╚@X70═════════════════════════════════════════════════════════════════════════════╝"
  128.     FClose 2
  129.     Print "@POS:35@@X0EDone!"
  130.     Select Case (STRING030)
  131.         Case "Y"
  132.             Goto LABEL003
  133.         Case "N"
  134.             Goto LABEL004
  135.     End Select
  136.     :LABEL003
  137.     Delay 20
  138.     Cls
  139.     DispFile PPEPath() + "TRANSFER.PCB", 0
  140.     Goto LABEL005
  141.     :LABEL004
  142.     Newline
  143.     Print "@X0FCopying screen to bulletin area..."
  144.     Copy PPEPath() + "TRANSFER.PCB", +STRING031
  145.     Print "@X0E@POS:35@Done!"
  146.     :LABEL005
  147.     Newline
  148.     Newline
  149.     Print "@X8EUNREGISTERED EVALUATION COPY@X0E"
  150.     Newline
  151.     Print "@X0CFor a free registered copy, call the Equinox BBS at 312-254-3413"
  152.     Delay 180
  153.     End
  154.  
  155. ;------------------------------------------------------------------------------
  156. ;
  157. ; Usage report (before postprocessing)
  158. ;
  159. ; ■ Statements used :
  160. ;
  161. ;    1       End
  162. ;    1       Cls
  163. ;    13      Goto 
  164. ;    27      Let 
  165. ;    8       Print 
  166. ;    7       If 
  167. ;    1       DispFile 
  168. ;    1       FCreate 
  169. ;    2       FOpen 
  170. ;    3       FClose 
  171. ;    15      FGet 
  172. ;    9       FPutLn 
  173. ;    2       Log 
  174. ;    2       Delay 
  175. ;    7       Newline
  176. ;    1       Tokenize 
  177. ;    1       FSeek 
  178. ;    1       Copy 
  179. ;
  180. ;
  181. ; ■ Functions used :
  182. ;
  183. ;    1       +
  184. ;    4       -
  185. ;    1       *
  186. ;    36      +
  187. ;    3       -
  188. ;    5       ==
  189. ;    1       <
  190. ;    1       <=
  191. ;    2       >=
  192. ;    3       !
  193. ;    2       &&
  194. ;    1       ||
  195. ;    2       Left()
  196. ;    1       Right()
  197. ;    1       Ferr()
  198. ;    3       Replace()
  199. ;    1       PCBDat()
  200. ;    4       PPEPath()
  201. ;    1       ReadLine()
  202. ;    8       GetToken()
  203. ;    1       PPEName()
  204. ;    1       Mixed()
  205. ;
  206. ;------------------------------------------------------------------------------
  207. ;
  208. ; Analysis flags : d
  209. ;
  210. ; d - Access PCBOARD.DAT ■ 2
  211. ;     Program gets the full pathname to PCBOARD.DAT, this may be usefull
  212. ;     for many PPE so they can find various informations on the system
  213. ;     (system paths, max number of lines in messages, ...) but it may also
  214. ;     be a way to gather vital informations.
  215. ;     ■ Search for : PCBDAT()
  216. ;
  217. ;------------------------------------------------------------------------------
  218. ;
  219. ; Postprocessing report
  220. ;
  221. ;    1       For/Next
  222. ;    0       While/EndWhile
  223. ;    0       If/Then or If/Then/Else
  224. ;    1       Select Case
  225. ;
  226. ;------------------------------------------------------------------------------
  227. ;                 AEGiS Corp - Break the routines, code against the machines!
  228. ;------------------------------------------------------------------------------
  229.